Описание
Определяет код (PID) учетной записи группы или учетной записи пользователя (только в рабочей области Microsoft Jet).

Значение
Значение данного свойства определяется выражением типа String, содержащим строку длиной от 4 до 20 букв или цифр. Значение данного свойства доступно только для записи для новых объектов, еще не добавленных в семейство, и недоступно для существующих объектов.

Замечания
Значение свойства PID задается вместе со значением свойства при создании нового объекта Group. При создании нового объекта User значение свойства PID задается вместе со значениями свойств Name и Password.

Пример
Следующая программа использует метод CreateUser и свойства Password и PID для создания нового объекта User. Далее новый объект User включается в разные объекты Group, а затем для него печатаются списки свойств и групп.

Sub CreateUserX()

	Dim wrkDefault As Workspace
	Dim usrNew As User
	Dim grpNew As Group
	Dim usrTemp As User
	Dim prpLoop As Property
	Dim grpLoop As Group
	Set wrkDefault = DBEngine.Workspaces(0)

	With wrkDefault
		' Создает и добавляет новый объект User.
		Set usrNew = .CreateUser("НовыйПользователь")
		usrNew.PID = "AAA123456789"
		usrNew.Password = "НовыйПароль"
		.Users.Append usrNew
		' Создает и добавляет новый объект Group.
		Set grpNew = .CreateGroup("НоваяГруппа", "AAA123456789")
		.Groups.Append grpNew
		' Делает пользователя "НовыйПользователь" членом
		' группы "НоваяГруппа", создавая и добавляя
		' подходящий объект User в семейство Users группы.
		Set usrTemp = 	.Groups("НоваяГруппа").CreateUser("НовыйПользователь")
		.Groups("НоваяГруппа").Users.Append usrTemp
		Debug.Print "Свойства " & usrNew.Name
		' Отображает семейство Properties объекта НовыйПользователь.
		' Свойство PID недоступно для чтения.
		For Each prpLoop In usrNew.Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & _
				prpLoop.Name & " = " & prpLoop
			On Error GoTo 0
		Next prpLoop
		Debug.Print "Семейство Groups объекта " & usrNew.Name

		' Отображает семейство Groups объекта НовыйПользователь.
		For Each grpLoop In usrNew.Groups
			Debug.Print "    " & 	grpLoop.Name
		Next grpLoop

		' Удаляет объекты User и Group, созданные 
		' только для демонстрации.
		.Users.Delete "НовыйПользователь"
		.Groups.Delete "НоваяГруппа"

	End With

End Sub